Macademic for Students & Teachers/Macademic for Students and Teachers (Quantum Leap)(1992).iso/Mathematics/Age⁄Year Calculator/My Age⁄Year Calc.BAS

BASIC Source File | 1991-01-29 | 20KB | 692 lines

'             ___________________________________________
'    PROGRAM:fl‡      Age & Birth Year Calculator       ·‚
'            fl———————————————————————————————————————————‚
'            fl      _________________________________    ‚
'            fl     fl⁄€€€€   January 21, 1991     €€€‹‚   ‚
'            fl     fl—————————————————————————————————››  ‚
'            fl     fl     By: Michael D. Powell       ››  ‚
'            fl     fl        Copyright 1991           ››  ‚
'            fl     fl     Master Data Processing      ››  ‚
'            fl     fl                                 ››  ‚
'            fl      ——›››››››››››››››››››››››››››››››››  ‚
'            fl                                           ‚
'             ———————————————————————————————————————————
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'Configuration Remarks
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'         Default variable type:Integer
'   Space req'd after key words:Yes
'                  Array base 1:No
'                     File Type:ZHEX
'                  Creator Type:AGCL
'
 DEF OPEN ="ZHEXAGCL"
 BUNDLE = 1
'
'
'
WINDOW OFF:COORDINATE WINDOW
DEF MOUSE=-1:CURSOR 4:WIDTH -2
'
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'Resources
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
Hndl& = FN GETRESOURCE(CVI("AGCL"),0)
LONG IF Hndl& = 0
  ResRef = FN OPENRESFILE("Age/Year Calc.RES")
END IF
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'Equates
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
YOBA$ = "**"
YOBB$ = "**"
YS$ = "*****"
DIM T,L,B,R:'                                                 Generic rectangles
DIM My,Mx,GlobalY,GlobalX,LocalY,LocalX:'                           Mouse points
DIM Ft,Fl,Fb,Fr,Fy,Fx:'                               Rect & point for functions
    True = NOT(False)
DIM KeyRecord(7):'                             Record structure for keyboard map
DIM FAsc,FDes,FWid,FLead,Fht:'              Record structure for font dimensions
DIM 40 BtnName$,40 CtrlTitle$:'                   Simple string for button names
DIM 1 Cr$:Cr$= CHR$(13):'                                       Return character
DIM 1 Q$ :Q$ = CHR$(34):'                                             Quote mark
DIM PenSpecs$:'                                           Holds current pen data
'
DIM ScrnT,ScrnL,ScrnB,ScrnR:'                                Rect of main screen
    CALL GETWMGRPORT(WMgrPort&):'                        Ptr to desktop grafport
    BLOCKMOVE WMgrPort&+8,VARPTR(ScrnT),8:'        Move its rect to my structure
'
    Arrow       =  0:IBeam     =  1:'                                    Cursors
    CrossHair   =  2:Plus      =  3
    Watch       =  4:Hand      = 1000
'
    ButtonAct   =  1:FieldAct  =  2:'                              Dialog events
    WindowAct   =  3:CloseAct  =  4
    RefreshAct  =  5:ReturnAct =  6
    TabAct      =  7:ZoomInAct =  8
    ZoomOutAct  =  9:ShTabAct  = 10
    ClearAct    = 11:LeftAct   = 12
    RightAct    = 13:UpAct     = 14
    DownAct     = 15:KeyAct    = 16
    DiskAct     = 17
'
'
'
DIM Stak(20):'                                                    My event stack
    StakHi = 20:'                                             Max items on stack
    SP = 0:'                                                       Stack pointer
    OpenEvent  = 1:'                                    Request to open a window
    CloseEvent = 2:'                             Request that a window be closed
    MenuEvent  = 3:'                         Request that menu be de-highlighted
    BreakEvent = 4:'                          Request that program be terminated
'
    Main = 1
    About = 2
    Year = 3
GOTO"Queue"
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'Functions
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'
'                                               Set the font and calc its height
'
LONG FN GetFht(GFFont,GFSize,GFFace,GFMode)
  TEXT GFFont,GFSize,GFFace,GFMode
  CALL GETFONTINFO(FAsc)
END FN = FAsc+FDes+FLead
'
'                                             Capture offset values from handles
'
DEF FN  GetWord(GWHndl&,GWOffSet)=PEEK WORD(PEEK LONG(GWHndl&)+GWOffSet)
DEF FN GetLong&(GLHndl&,GLOffSet)=PEEK LONG(PEEK LONG(GLHndl&)+GLOffSet)
'
'                                             Place an integer on my event stack
'
LONG FN Push(PushVal)
  IF SP+1>StakHi THEN SP=StakHi-1
  SP = SP + 1
  Stak(SP) = PushVal
END FN
'
'                                                Remove an integer from my stack
'
LONG FN Pop
  LONG IF SP
    PopVal = Stak(SP)
    SP = SP - 1
  XELSE
    PopVal = 0
  END IF
END FN = PopVal
'
'                                   Refresh a window without bringing it forward
'
LONG FN Format(Wnd2Format)
  LONG IF Wnd2Format
    OldOutPutWnd = WINDOW(1)
    WINDOW OUTPUT Wnd2Format
    GOSUB"Format Wnd"
    IF OldOutPutWnd THEN WINDOW OUTPUT OldOutPutWnd
  END IF
END FN
'
'                                                        Locate a button by name
'
LONG FN FindBtn&(BtnName$)
  FndBtnHndl&=PEEK LONG(WINDOW(14)+140)
  DO
    CALL GETCTITLE(FndBtnHndl&,CtrlTitle$)
    LONG IF BtnName$<>CtrlTitle$
      FndBtnHndl&=PEEK LONG(PEEK LONG(FndBtnHndl&))
    END IF
  UNTIL BtnName$=CtrlTitle$ OR FndBtnHndl&=0
END FN = FndBtnHndl&
'
'                                      Change cursor according to mouse position
'
LONG FN AutoCursor(Fy,Fx)
  ACResult = Arrow
  LONG IF WINDOW(0)
    ACHndl& = TEHANDLE(WINDOW(0))
    LONG IF ACHndl&
      BLOCKMOVE PEEK LONG(ACHndl&),VARPTR(Ft),8
      IF FN PTINRECT(Fy,Ft) THEN ACResult = IBeam
     END IF
    ACPort& = WINDOW(14)
    LONG IF ACPort&
      LONG IF FN FINDCONTROL(Fy,ACPort&,ACHndl&)
        ACResult = Hand
      END IF
    END IF
  END IF
END FN = ACResult
'
'                                            Check 1 menu item & return its name
'
LONG FN Chk1Item$(MHndl&,ChkItem)
  FOR F=1 TO FN COUNTMITEMS(MHndl&)
    CALL CHECKITEM(MHndl&,F,(F=ChkItem))
  NEXT
  CALL GETITEM(MHndl&,ChkItem,ItemName$)
END FN=ItemName$
'
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Queue"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
 GOSUB"Initialize":'                                     Execute set-up routines
 FLUSHEVENTS:'                                   Remove any events since startup
 ON BREAK  GOSUB"Break":'                                        Set up handlers
 ON DIALOG GOSUB"Dialog"
 ON MOUSE  GOSUB"Mouse"
 ON MENU   GOSUB"Menu"
 CURSOR Arrow:'                                             Restore arrow cursor
'
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Loop"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'
 DIALOG ON :MOUSE ON :BREAK ON :MENU ON
 DIALOG OFF:MOUSE OFF:BREAK OFF:MENU OFF:'     The only place events are trapped
'
'                                                      Handle events on my stack
'
WHILE SP:'                                      Is the stack pointer above zero?
  MyEvent=FN Pop:'                                  Pop the event from the stack
  SELECT MyEvent:'                                            React to the event
    CASE OpenEvent:'                                   Request to build a window
      GOSUB"Build"
    CASE CloseEvent:'                                  Request to close a window
      Wnd2Close = FN Pop:'                   Pop # of window to close from stack
'                                 Bring it to the front for the capture routines
      IF WINDOW(0)<>Wnd2Close THEN WINDOW Wnd2Close
      GOSUB"Capture":'                               Capture data before closing
      WINDOW CLOSE Wnd2Close:'                                          Close it
    CASE MenuEvent:'                                 Request to de-hilite a menu
      MENU
    CASE BreakEvent:'                                       Request to terminate
      LONG IF WINDOW(0)
'                          Close open windows 1st to handle list/region disposal
        FN Push(BreakEvent)
        FN Push(WINDOW(0))
        FN Push(CloseEvent)
      XELSE
        PleaseTerminate=True
      END IF
  END SELECT:'                                             End of event handlers
  IF PleaseTerminate=True THEN "Break":'    Cont while events remain on my stack
WEND
'
'                                                   Set cursor by mouse position
'
 OldCsr=NewCsr:'                                             Save the old cursor
 NewCsr=Arrow:'                                        Reset new cursor to arrow
 CALL GETMOUSE(My):'                                         Where is the mouse?
 NewCsr=FN AutoCursor(My,Mx):'                                Let the FN tell us
 IF NewCsr<>OldCsr THEN CURSOR NewCsr:'               If the cursor has changed…
'
GOTO"Loop"
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Dialog"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
 Act=DIALOG(0):Ref=DIALOG(Act)
'
 LONG IF Act=CloseAct
   FN Push(Ref):FN Push(CloseEvent)
   RETURN
 END IF
'
 IF Act=RefreshAct THEN FN Format(Ref):RETURN
'
 IF Act=ClearAct THEN EDIT FIELD Ref,"":RETURN
'
'
 LONG IF Act=WindowAct
   GOSUB"Capture"
   WINDOW Ref
   RETURN
 END IF
'
'
 LONG IF WINDOW(0) = Main

   LONG IF Act = ButtonAct            'WINDOW 1  DIALOG routines here

   SELECT Ref

   CASE 1
    LONG IF VAL(EDIT$(1)) > 1799 AND VAL(EDIT$(1)) < 1997

     GOSUB "Capture"

    XELSE

     EDIT FIELD 1,"?"
     BB$ = "?":AB$ = "?"
     GOSUB "Format Wnd"

    END IF

   CASE 2
    YS$ = "*****"
    BB$ = "?":AB$ = "?"
    EDIT FIELD 1,"?"
    BUTTON 1,0:BUTTON 2,0
    FOR X = 4 TO 9:BUTTON X,1:NEXT X
    GOSUB "Format Wnd"

   CASE 3
    YS$ = "*****"
    BB$ = "?":AB$ = "?"
    EDIT FIELD 1,"?"
    FN Push(1):FN Push(CloseEvent)

   CASE 4
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1991"
    GOSUB "Format Wnd"

   CASE 5
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1992"
    GOSUB "Format Wnd"

   CASE 6
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1993"
    GOSUB "Format Wnd"

   CASE 7
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1994"
    GOSUB "Format Wnd"

   CASE 8
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1995"
    GOSUB "Format Wnd"

   CASE 9
    BUTTON 1,2:BUTTON 2,2
    FOR X = 4 TO 9:BUTTON X,0:NEXT X
    YS$ = "1996"
    GOSUB "Format Wnd"

    END SELECT

   END IF

   RETURN

 END IF
'
'
 LONG IF WINDOW(0) = Year

  LONG IF Act = ButtonAct    'WINDOW 3  DIALOG routines here

   SELECT Ref

    CASE 1
     BY = 1991
     FOR X = 1 TO 4:BUTTON X,0:NEXT X
     BUTTON 5,2:BUTTON 6,2

    CASE 2
     BY = 1992
     FOR X = 1 TO 4:BUTTON X,0:NEXT X
     BUTTON 5,2:BUTTON 6,2

    CASE 3
     BY = 1993
     FOR X = 1 TO 4:BUTTON X,0:NEXT X
     BUTTON 5,2:BUTTON 6,2

    CASE 4
     BY = 1994
     FOR X = 1 TO 4:BUTTON X,0:NEXT X
     BUTTON 5,2:BUTTON 6,2

    CASE 5
     GOSUB "Capture"
     GOSUB "Format Wnd"

    CASE 6
     EDIT FIELD 1,"?"
     FOR X = 1 TO 4:BUTTON X,1:NEXT X
     BUTTON 5,0:BUTTON 6,0
     YOBA$ = "**"
     YOBB$ = "**"
     GOSUB "Format Wnd"

    CASE 7
     EDIT FIELD 1,"?"
     FN Push(3):FN Push(CloseEvent)


   END SELECT

  END IF

   RETURN

 END IF

RETURN
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Mouse"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
 Mact=MOUSE(0):Mx=MOUSE(1):My=MOUSE(2)
'
LONG IF WINDOW(1) = About
MOUSE ON
DO
Mact = MOUSE(0)
UNTIL Mact <> 0
MOUSE OFF
FN Push(2):FN Push(CloseEvent)
END IF

 DO:UNTIL MOUSE(0)=0
RETURN
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Menu"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
 MenuID=MENU(0):ItemID=MENU(1)
 FN Push(MenuEvent)

 LONG IF MenuID = 255:'                                               Apple menu

 FN Push(2)                        '<-- Put "About..." handlers here
 FN Push(OpenEvent)

 RETURN

 END IF

 ON MenuID GOTO "File"

"File"

 ON ItemID GOTO "Calc Age","Calc Year","X","Quit"

"Calc Age"
 BB$ = "?":AB$ = "?"
 FN Push(1):FN Push(OpenEvent)

 RETURN

"Calc Year"
 YOBA$ = "**":YOBB$ = "**"
 FN Push(3):FN Push(OpenEvent)

 RETURN

"Quit" GOTO "Break"

"X"

 RETURN
'
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
"Break"
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'
 IF WINDOW(0) THEN FN Push(BreakEvent):RETURN
'
 IF ResRef>0 THEN CALL CLOSERESFILE(ResRef)
'
END
'
'
'
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'Window Routines
'∑∑∑œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ∑∑∑
'
'
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
"Build"
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
 Wnd2Build = FN Pop:'                                    Pop window # from stack

 SELECT Wnd2Build

  CASE Main
     T = 0:L = 0:B = 278:R = 420:'                       Set TLBR to window size
'                                    Offset the rect to the center of the screen
     CALL OFFSETRECT(T,ScrnR/2-R/2,(ScrnB/2+8)-B/2)
     WINDOW Wnd2Build,"Window #1",(L,T)-(R,B),-2
     TEXT 0,12,0,0
     EDIT FIELD 1,"?",( 56, 89)-( 112, 105),1,2
     BUTTON 1, 0,"Calculate Age",( 55, 115)-( 172, 131),3
     BUTTON 2, 0,"Clear",( 36, 145)-( 103, 161),3
     BUTTON 3, 2,"Cancel",( 106, 145)-( 173, 161),3
     BUTTON 4, 1,"1991",( 274, 186)-( 321, 206),1
     BUTTON 5, 1,"1992",( 331, 186)-( 378, 206),1
     BUTTON 6, 1,"1993",( 274, 210)-( 321, 230),1
     BUTTON 7, 1,"1994",( 331, 210)-( 378, 230),1
     BUTTON 8, 1,"1995",( 275, 234)-( 322, 254),1
     BUTTON 9, 1,"1996",( 332, 234)-( 379, 254),1

   CASE About
     T = 0:L = 0:B = 109:R = 248:'                       Set TLBR to window size
'                                    Offset the rect to the center of the screen
     CALL OFFSETRECT(T,ScrnR/2-R/2,(ScrnB/2+8)-B/2)
     WINDOW Wnd2Build,"Window #2",(L,T)-(R,B),-2

   CASE Year
     T = 0:L = 0:B = 251:R = 333:'                       Set TLBR to window size
'                                    Offset the rect to the center of the screen
     CALL OFFSETRECT(T,ScrnR/2-R/2,(ScrnB/2+8)-B/2)
     WINDOW Wnd2Build,"Window #3",(L,T)-(R,B),-2
     BUTTON 1, 1,"1991",( 179, 64)-( 227, 84),1
     BUTTON 2, 1,"1992",( 239, 64)-( 284, 84),1
     BUTTON 3, 1,"1993",( 178, 88)-( 226, 108),1
     BUTTON 4, 1,"1994",( 240, 88)-( 285, 108),1
     BUTTON 5, 0,"Find Year",( 31, 222)-( 116, 238),3
     BUTTON 6, 0,"Clear",( 150, 222)-( 215, 238),3
     BUTTON 7, 2,"Cancel",( 243, 222)-( 308, 238),3
     TEXT 0,12,0,0
     EDIT FIELD 1,"?",( 36, 67)-( 92, 83),1,2

 END SELECT

RETURN
'
'
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
"Format Wnd"
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
'
 CALL GETPENSTATE(PenSpecs$):'                      Record the current pen state
'
 TxFont=PEEK WORD(WINDOW(14)+68):'                 Record the current font specs
 TxFace=PEEK WORD(WINDOW(14)+70)
 TxMode=PEEK WORD(WINDOW(14)+72)
 TxSize=PEEK WORD(WINDOW(14)+74)
'
'
 LONG IF WINDOW(1) = Main
   T = 39:L = 243:B = 156:R = 414
   PEN 8,3,1,8,19
   CALL PAINTRECT(T)
   PEN ,,1,8,0
   CALL FRAMERECT(T)
   T = 177:L = 7:B = 267:R = 204
   CALL PENNORMAL:'                          If you haven't installed the proper
   DEF SHADOWBOX(T):'                             ZMover library-this won't work
   T = 122:L = 261:B = 143:R = 314
   CALL PENNORMAL:'                          If you haven't installed the proper
   DEF SHADOWBOX(T):'                             ZMover library-this won't work
   T = 3:L = 2:B = 30:R = 419
   TEXT 22,24,25,0
   Temp$ = "Age Calculator"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 31:L = 4:B = 31:R = 416
   PEN 1,1,1,8
   CALL MOVETO(L,T):CALL LINETO(R,B)
   T = 59:L = 57:B = 83:R = 114
   TEXT ,12,1,0
   Temp$ = "Year Of Birth"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 48:L = 260:B = 67:R = 398
   TEXT 3,14,,0
   Temp$ = YS$
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 85:L = 253:B = 109:R = 320
   TEXT 22,12,,0
   Temp$ = "Before"+Cr$+"Birthday"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   L = 333:R = 405
   Temp$ = "After Birthday"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 123:L = 266:B = 139:R = 307
   TEXT 0,,0,0
   Temp$ = BB$
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 121:L = 344:B = 145:R = 400
   CALL PENNORMAL:'                          If you haven't installed the proper
   DEF SHADOWBOX(T):'                             ZMover library-this won't work
   T = 123:L = 352:B = 139:R = 393
   Temp$ = AB$
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 181:L = 11:B = 261:R = 200
   Temp$ = "Select a Year button to the right.  Enter a year into the box above and click the calculate age button to receive the answer."
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 0)
   T = 72:L = 251:B = 72:R = 406
   PEN 4,8,1,8
   CALL MOVETO(L,T):CALL LINETO(R,B)
   T = 76:L = 327:B = 151:R = 327
   PEN 2,4,1,8
   CALL MOVETO(L,T):CALL LINETO(R,B)
 END IF:'                                                     End of Main format
'
'
 LONG IF WINDOW(1) = About
   T = 6:L = 5:B = 101:R = 243
   TEXT 3,14,1,0
   Temp$ = "Age Calculator"+Cr$+"by"+Cr$+"Michael D. Powell"+Cr$+"January 1991"+Cr$+"Written in ZBasic"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
 END IF:'                                                    End of About format
'
'
 LONG IF WINDOW(1) = Year
   T = 41:L = 167:B = 117:R = 295
   PEN 4,6,1,8,3
   CALL FRAMERECT(T)
   T = 105:L = 5:B = 209:R = 139
   CALL PENNORMAL:'                          If you haven't installed the proper
   DEF SHADOWBOX(T):'                             ZMover library-this won't work
   T = 5:L = 2:B = 32:R = 331
   TEXT 22,24,24,0
   Temp$ = "Year Calculator"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 31:L = 3:B = 31:R = 329
   PEN 2,4,1,8,0
   CALL MOVETO(L,T):CALL LINETO(R,B)
   T = 46:L = 26:B = 62:R = 102
   TEXT 0,12,0,0
   Temp$ = "Enter Age"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 119:L = 142:B = 167:R = 332
   Temp$ = "If the birthday for this year has past this person was born in:"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 0)
   T = 151:L = 202:B = 167:R = 282
   Temp$ = YOBA$
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 48:L = 180:B = 60:R = 286
   TEXT 22,,1,0
   Temp$ = "Present Year:"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 106:L = 7:B = 202:R = 133
   TEXT ,10,0,0
   Temp$ = "You must first select the present year and then enter the age of the person in the box above.  Click find year to see when the person was born"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
   T = 170:L = 143:R = 322
   TEXT 0,12,,0
   Temp$ = "otherwise the correct year was:"
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 0)
   T = 186:L = 215:B = 202:R = 295
   Temp$ = YOBB$
   CALL TEXTBOX(VARPTR(Temp$)+1,LEN(Temp$),T, 1)
 END IF:'                                                     End of Year format
'
'
TEXT TxFont,TxSize,TxFace,TxMode:'                        Restore the font specs
'
 CALL SETPENSTATE(PenSpecs$):'                                   Restore the pen
'
RETURN
'
'
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
"Capture"
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
'
 LONG IF WINDOW(0) = Main

  YS = VAL(YS$)           'WINDOW 1  capture routines here
  YRB = VAL(EDIT$(1))
  BB = YS - (YRB+1):AB = YS - (YRB)
  BB$ = STR$(BB):AB$ = STR$(AB)
  GOSUB "Format Wnd"

 END IF
'
 LONG IF WINDOW(0) = Year
 AG = VAL(EDIT$(1))        'WINDOW 3  capture routines here
 YOBA = BY - AG
 YOBB = (BY-1) - AG
 YOBA$ = STR$(YOBA)
 YOBB$ = STR$(YOBB)
 END IF
RETURN
'
'
'
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
"Initialize"
'”’”’”’”’”’”’”’”’”’’
'‘“‘“‘“‘“‘“‘“‘“‘“‘“‘
 FN Push(2):'                                      Push first window on to stack
 FN Push(OpenEvent):'                   Tell my event manager to open the window
 APPLE MENU "About..."
 MENU 1,0,1,"File"
   MENU 1,1,1,"Calc Age/A"
   MENU 1,2,1,"Calc Year/Y"
   MENU 1,3,0,"-"
   MENU 1,4,1,"Quit/Q"
RETURN
'